	x=0.0 ;]
	y=1.0 ;傫

*main
	repeat
	redraw 0
	color 255,255,255:boxf

	
	celload ".gif",1,0
	pos 200,200:celput 1,0,y,y,x ;摜

	getkey ue,38 ;L[Ŋg
	getkey sita,40 ;L[ŏk
	getkey supesu,32 ;Xy[Xŉ]
	
	if ue>=1:y=y+0.1
	if sita>=1:y=y-0.1
	if supesu>=1:x=x+0.1
	
	color 0,0,0
	pos 500,100:mes "L[Ŋg"
	pos 500,200:mes "L[ŏk"
	pos 450,300:mes "Xy[XL[ŉ]"
	
	redraw 1 
	wait 1
	loop
